home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / APPLE HANGMAN.bas < prev    next >
BASIC Source File  |  2003-06-12  |  14KB  |  223 lines
  1. 2 WT = 600
  2. 5  GOSUB 10000
  3. 10  IF  PEEK(232) = 151  AND  PEEK(233) = 143  AND  PEEK(1) = 2  AND  PEEK(0) = 128  THEN  GOTO 50
  4. 20  POKE 0,128: POKE 1,2: POKE 232,151: POKE 233,143
  5. 30  HIMEM: 37401
  6. 40 D$ =  CHR$(13) + CHR$(4): PRINT D$"BLOAD SHAPES,A$8F97"
  7. 50  HIMEM: 36759
  8. 60 D$ =  CHR$(4)
  9. 70  DIM WO$(200),A(200),B(200)
  10. 80 G$(1) = "GRADES 1-4":G$(2) = "GRADES 5-8":G$(3) = "GRADES 9-12":G$(4) = "COLLEGE"
  11. 90 T = 0:D$ =  CHR$(4)
  12. 100 S = 0
  13. 110  GOTO 740
  14. 120  HGR2 
  15. 130  HCOLOR= 2
  16. 140  HPLOT 70,120 TO 120,120: HPLOT 90,120 TO 90,20 TO 150,20 TO 150,29
  17. 150  GOTO 980
  18. 160  REM  **HEAD**
  19. 170  HCOLOR= 5
  20. 180  HPLOT 138,41: FOR X = 138 TO 162:Y =  SQR(144 -(X -150) ^2): HPLOT X,41 -Y: HPLOT  TO X,41 +Y: NEXT 
  21. 190  HPLOT 138,39 TO 135,39 TO 135,42 TO 138,42
  22. 200  HPLOT 162,39 TO 165,39 TO 165,42 TO 162,42: RETURN 
  23. 210  REM  **BODY**
  24. 220  HCOLOR= 3: HPLOT 150,52 TO 150,83: RETURN 
  25. 230  REM  **LEFT ARM**
  26. 240  HCOLOR= 3: HPLOT 150,58 TO 145,58 TO 128,75
  27. 245  IF DD = 2  THEN SW = SW +1: GOTO 250
  28. 247  RETURN 
  29. 250  REM  **RIGHT ARM**
  30. 260  HCOLOR= 3: HPLOT 150,58 TO 155,58 TO 172,75: RETURN 
  31. 270  REM  **LEFT LEG**
  32. 280  HPLOT 150,83 TO 125,108
  33. 285  IF DD = 2  THEN SW = SW +1: GOTO 290
  34. 287  RETURN 
  35. 290  REM  **RIGHT LEG**
  36. 300  HPLOT 150,83 TO 175,108: RETURN 
  37. 310  REM  **EYES**
  38. 320  HCOLOR= 4: HPLOT 145,38 TO 146,38 TO 146,39 TO 145,39
  39. 330  HCOLOR= 4: HPLOT 154,38 TO 155,38 TO 155,39 TO 154,39
  40. 335  IF DD = 2  THEN SW = SW +2: GOSUB 340: GOSUB 360
  41. 337  RETURN 
  42. 340  REM  **EYEBROWS**
  43. 350  HCOLOR= 4: HPLOT 144,35 TO 147,35: HPLOT 153,35 TO 156,35: RETURN 
  44. 360  REM   **NOSE AND MOUTH** 
  45. 370  HCOLOR= 4
  46. 380  HPLOT 149,42 TO 151,42: HPLOT 147,46 TO 153,46: RETURN 
  47. 390  REM  **LEFT FOOT**
  48. 400  HCOLOR= 5: HPLOT 118,103 TO 125,110 TO 123,112 TO 121,110 TO 122,109 TO 121,108 TO 118,108 TO 115,105 TO 115,103 TO 118,103
  49. 410  HPLOT 124,110 TO 118,104: HPLOT 123,110 TO 117,104: HPLOT 123,111 TO 122,110: HPLOT 119,107 TO 116,104: HPLOT 118,107 TO 116,105
  50. 415  IF DD = 2  THEN SW = SW +1: GOSUB 420
  51. 417  RETURN 
  52. 420  REM   **RIGHT FOOT**
  53. 430  HCOLOR= 5
  54. 440  HPLOT 174,111 TO 182,103 TO 184,103 TO 185,104 TO 185,105 TO 182,108 TO 178,108 TO 177,109 TO 179,111 TO 177,113 TO 174,111
  55. 450  HPLOT 175,111 TO 182,104: HPLOT 176,111 TO 183,104: HPLOT 176,112 TO 177,111: HPLOT 177,112
  56. 460  HPLOT 181,107 TO 184,104: HPLOT 182,107 TO 183,106: RETURN 
  57. 470  REM  **LEFT HAND**
  58. 480  HCOLOR= 5: HPLOT 172,78 TO 175,75 TO 179,79 TO 179,80 TO 177,82 TO 174,79 TO 173,79 TO 173,81 TO 172,81 TO 172,78
  59. 490  HPLOT 174,76 TO 178,79: HPLOT 174,77 TO 178,80: HPLOT 173,77 TO 177,80: HPLOT 173,78 TO 177,81: HPLOT 173,78
  60. 500  HPLOT 172,82 TO 173,82: HPLOT 178,82 TO 180,80
  61. 505  IF DD = 2  THEN SW = SW +1: GOSUB 510
  62. 507  RETURN 
  63. 510  REM   **RIGHT HAND** 
  64. 520  HCOLOR= 5
  65. 530  HPLOT 124,75 TO 128,78 TO 128,80 TO 127,80 TO 127,79 TO 126,79 TO 123,82 TO 121,80 TO 121,79 TO 124,75
  66. 540  HPLOT 125,76 TO 122,79: HPLOT 124,77 TO 121,81: HPLOT 125,77 TO 123,80: HPLOT 125,78 TO 122,82: HPLOT 127,78: HPLOT 120,80: HPLOT 127,82 TO 128,82
  67. 550  HPLOT 127,78 TO 127,82: RETURN 
  68. 560  REM  **SHIRT**
  69. 570  HCOLOR= 1: HPLOT 142,58 TO 158,58 TO 174,74 TO 171,77 TO 157,63 TO 157,78 TO 155,80 TO 145,80 TO 143,78 TO 143,63 TO 129,77 TO 126,74 TO 142,58
  70. 580  HPLOT 158,59 TO 173,74: HPLOT 157,59 TO 172,74: HPLOT 156,59 TO 172,75: HPLOT 155,59 TO 171,75: HPLOT 154,59 TO 171,76
  71. 590  HPLOT 156,59 TO 156,78: HPLOT 155,59 TO 155,79: HPLOT 154,59 TO 154,80: HPLOT 153,59 TO 153,80: HPLOT 152,59 TO 152,80: HPLOT 151,59 TO 151,80
  72. 600  HPLOT 150,59 TO 150,80: HPLOT 149,59 TO 149,80: HPLOT 148,59 TO 148,80: HPLOT 147,59 TO 147,80: HPLOT 146,59 TO 146,80: HPLOT 145,59 TO 145,79: HPLOT 144,59 TO 144,78
  73. 610  HPLOT 146,59 TO 129,76: HPLOT 145,59 TO 129,75: HPLOT 144,59 TO 128,75: HPLOT 143,59 TO 128,74: HPLOT 142,59 TO 127,74
  74. 620  HPLOT 147,57 TO 153,57: HPLOT 147,56 TO 153,56: RETURN 
  75. 630  REM  **PANTS**
  76. 640  HCOLOR= 6: HPLOT 146,81 TO 154,81 TO 177,104 TO 171,110 TO 150,89 TO 129,110 TO 123,104 TO 146,81
  77. 650  HPLOT 154,82 TO 176,104: HPLOT 153,82 TO 174,104: HPLOT 152,82 TO 175,105: HPLOT 151,82 TO 174,105
  78. 660  HPLOT 150,82 TO 174,106: HPLOT 149,82 TO 173,106: HPLOT 148,82 TO 173,107: HPLOT 147,82 TO 172,107: HPLOT 146,82 TO 172,108: HPLOT 146,83 TO 171,108
  79. 670  HPLOT 145,83 TO 171,109: HPLOT 146,82 TO 124,104: HPLOT 147,83 TO 125,104: HPLOT 148,83 TO 125,105: HPLOT 149,83 TO 126,105: HPLOT 150,83 TO 126,106
  80. 680  HPLOT 151,82 TO 127,106: HPLOT 152,82 TO 127,107: HPLOT 153,82 TO 128,107: HPLOT 154,82 TO 128,108: HPLOT 154,83 TO 129,108: HPLOT 155,83 TO 129,109
  81. 690  REM  **MOUTH AND EYEBROWS**
  82. 700  HCOLOR= 5: HPLOT 147,46 TO 153,46: HCOLOR= 4
  83. 710  HPLOT 147,47 TO 147,46 TO 148,46 TO 148,45 TO 152,45 TO 152,46 TO 153,46 TO 153,47
  84. 720  HCOLOR= 5: HPLOT 144,35 TO 147,35: HPLOT 153,35 TO 156,35: HCOLOR= 4
  85. 730  HCOLOR= 4: HPLOT 144,34 TO 146,34: HPLOT 146,35 TO 147,35: HPLOT 153,35 TO 154,35: HPLOT 154,34 TO 156,34: GOTO 1650
  86. 740  GOSUB 1270: GOTO 1340
  87. 750  HOME : VTAB 12: HTAB 1: INPUT "WHAT IS YOUR NAME --";P1$
  88. 760  HOME : VTAB 7: HTAB (18 -( LEN(P1$)/2)): INVERSE : PRINT "HI ";P1$: VTAB 15: HTAB 4: PRINT "I HOPE YOU ENJOY HANGING AROUND!!": VTAB 20: NORMAL 
  89. 765  GOTO 790
  90. 770  TEXT : HOME : VTAB 12: PRINT "SELECTING FROM ";G$( VAL(G$)): VTAB 16: HTAB 5: PRINT "<ESC> TO CHANGE VOCABULARY": VTAB 18: HTAB 5: FLASH : PRINT "ANY OTHER KEY TO CONTINUE";: NORMAL : GET E$
  91. 790  IF E$ =  CHR$(27)  THEN S = 0: GOSUB 1270: GOTO 770
  92. 810  IF S = 1  THEN  GOTO 870
  93. 820  PRINT : PRINT D$"OPEN ";G$( VAL(G$));" WORDS,L15"
  94. 830  PRINT D$"READ ";G$( VAL(G$));" WORDS,R1"
  95. 840  INPUT NW
  96. 850  FOR I = 1 TO NW: INPUT WO$(I): NEXT 
  97. 860  PRINT D$"CLOSE ";G$( VAL(G$));" WORDS"
  98. 870  GOSUB 2000:WO$ = WO$(N):S = 1: GOTO 120
  99. 880  IF S = 1  THEN 970
  100. 882 S = 1
  101. 885  HOME : VTAB 7: HTAB 5: INPUT "WORD MAKER'S NAME-";P1$
  102. 890  PRINT : HTAB 5: INPUT "WORD GUESSER'S NAME-";P2$
  103. 920  HOME : PRINT : PRINT D$"OPEN ";G$( VAL(G$));" WORDS,L15"
  104. 930  PRINT D$"READ ";G$( VAL(G$));" WORDS,R1"
  105. 940  INPUT NW
  106. 950  FOR I = 1 TO NW: INPUT WO$(I): NEXT : PRINT : PRINT D$"CLOSE"
  107. 970  HOME : VTAB 10: PRINT P2$;", PLEASE TURN AROUND AND DO NOT PEEK!!"
  108. 971  PRINT : PRINT : HTAB ( LEN(P1$)/2): PRINT P1$: PRINT : PRINT : PRINT "ENTER A WORD (15 CHARACTERS MAXIMUM):": PRINT : HTAB 5: INPUT "YOUR WORD-- ";WO$
  109. 972  HOME : FOR I = 1 TO NW: IF WO$ = WO$(I)  THEN I = NW: NEXT : GOTO 975
  110. 973  NEXT :NW = NW +1:WO$(NW) = WO$: PRINT D$"OPEN ";G$( VAL(G$));" WORDS,L15": PRINT D$"WRITE ";G$( VAL(G$));" WORDS,R1": PRINT NW: FOR I = 1 TO NW: PRINT WO$(I): NEXT : PRINT : PRINT D$"CLOSE ";G$( VAL(G$));" WORDS"
  111. 975  VTAB 10: HTAB 5: PRINT  CHR$(7);"OK! LET'S GO ";P2$: FOR I = 1 TO 5000: NEXT : GOTO 120
  112. 980  SCALE= 2: ROT= 0:NG = 0:WG = 0:TR = 0:SW = 0
  113. 990 L =  LEN(WO$):N = 10
  114. 1000  FOR I = 1 TO L: HPLOT N -5 +I *20,160 TO N +I *20 +7,160: NEXT 
  115. 1010  HCOLOR= 3: GOSUB 1410:R = 0
  116. 1020  GET GU$: IF GU$ =  CHR$(23)  THEN 1460
  117. 1030 NG = NG +1: IF  ASC(GU$) <65  OR  ASC(GU$) >90  THEN NG = NG -1: GOTO 1020
  118. 1040  DRAW  ASC(GU$) -31 AT 234,170
  119. 1050  FOR I = 1 TO L
  120. 1060  IF  MID$ (WO$,I,1) = GU$  THEN  DRAW  ASC(GU$) -31 AT I *20 +N,144:R = R +1:TR = TR +1: IF TR = L  THEN 1540
  121. 1070  NEXT 
  122. 1080  GOSUB 2200
  123. 1090  SCALE= 2
  124. 1100  IF R = 0  THEN 1200
  125. 1110  IF R = 1  THEN 1160
  126. 1120  GOSUB 1130: FOR I = 1 TO WT: NEXT : GOSUB 2200: GOTO 1010
  127. 1130  DRAW  ASC("T") -31 AT 30,170: DRAW  ASC("H") -31 AT 42,170: DRAW  ASC("E") -31 AT 54,170: DRAW  ASC("R") -31 AT 66,170: DRAW  ASC("E") -31 AT 78,170: DRAW  ASC("A") -31 AT 102,170: DRAW  ASC("R") -31 AT 114,170
  128. 1131  DRAW  ASC("E") -31 AT 126,170
  129. 1132  DRAW  ASC( STR$(R)) -31 AT 150,170: DRAW  ASC(GU$) -31 AT 174,170: DRAW  ASC("S") -31 AT 198,170
  130. 1133  RETURN 
  131. 1160  GOSUB 1170: FOR I = 1 TO WT: NEXT : GOSUB 2200: GOTO 1010
  132. 1170  DRAW  ASC("T") -31 AT 30,170: DRAW  ASC("H") -31 AT 42,170: DRAW  ASC("E") -31 AT 54,170: DRAW  ASC("R") -31 AT 66,170: DRAW  ASC("E") -31 AT 78,170: DRAW  ASC("I") -31 AT 102,170: DRAW  ASC("S") -31 AT 114,170
  133. 1171  DRAW  ASC( STR$(R)) -31 AT 138,170: DRAW  ASC(GU$) -31 AT 162,170
  134. 1172  RETURN 
  135. 1200 WG = WG +1:SW = SW +1
  136. 1210  ON SW GOSUB 170,220,240,260,280,300,320,350,370,400,430,480,520,570,640
  137. 1215  HCOLOR= 3
  138. 1220  GOSUB 1230: FOR I = 1 TO WT: NEXT : GOSUB 1250: GOSUB 2200: GOTO 1010
  139. 1230  DRAW  ASC("T") -31 AT 30,170: DRAW  ASC("H") -31 AT 42,170: DRAW  ASC("E") -31 AT 54,170: DRAW  ASC("R") -31 AT 66,170: DRAW  ASC("E") -31 AT 78,170: DRAW  ASC("A") -31 AT 102,170: DRAW  ASC("R") -31 AT 114,170
  140. 1231  DRAW  ASC("E") -31 AT 126,170
  141. 1232  DRAW  ASC("N") -31 AT 150,170: DRAW  ASC("O") -31 AT 162,170: DRAW  ASC(GU$) -31 AT 186,170: DRAW  ASC("S") -31 AT 210,170
  142. 1233  RETURN 
  143. 1250 R =  INT((WG +2)/3):C = WG +2 - INT((WG +2)/3) *3
  144. 1260  DRAW  ASC(GU$) -31 AT 210 +C *20,R *25 -15: RETURN 
  145. 1270  HOME : VTAB 6
  146. 1280  PRINT : HTAB 5: PRINT "1 ";G$(1)
  147. 1290  PRINT : HTAB 5: PRINT "2 ";G$(2)
  148. 1300  PRINT : HTAB 5: PRINT "3 ";G$(3)
  149. 1310  PRINT : HTAB 5: PRINT "4 ";G$(4)
  150. 1315 DD = 2
  151. 1320  VTAB 15: HTAB 5: PRINT "ENTER VOCABULARY LEVEL--";: GET G$: IF  VAL(G$) <1  OR  VAL(G$) >4  THEN 1320
  152. 1321  HOME : VTAB 10: PRINT "DIFFICULTY-- E)ASY OR H)ARD- ";: GET DD$
  153. 1322  IF DD$ = "E"  THEN DD = 1
  154. 1330  RETURN 
  155. 1340  HOME : VTAB 10
  156. 1350  PRINT : HTAB 5: PRINT "1 COMPUTER PLAY"
  157. 1360  PRINT : HTAB 5: PRINT "2 TWO PLAYER"
  158. 1370  VTAB 15: HTAB 5: PRINT "ENTER GAME TYPE--";: GET T$: IF  VAL(T$) <1  OR  VAL(T$) >2  THEN 1370
  159. 1380  IF  VAL(T$) = 1  AND T = 0  THEN 750
  160. 1390  IF  VAL(T$) = 1  THEN 770
  161. 1400  GOTO 880
  162. 1410  SCALE= 2
  163. 1411  DRAW  ASC("G") -31 AT 30,170: DRAW  ASC("U") -31 AT 42,170: DRAW  ASC("E") -31 AT 54,170: DRAW  ASC("S") -31 AT 66,170: DRAW  ASC("S") -31 AT 78,170: DRAW  ASC("A") -31 AT 102,170
  164. 1412  DRAW  ASC("L") -31 AT 126,170: DRAW  ASC("E") -31 AT 138,170: DRAW  ASC("T") -31 AT 150,170: DRAW  ASC("T") -31 AT 162,170: DRAW  ASC("E") -31 AT 174,170: DRAW  ASC("R") -31 AT 186,170
  165. 1413  DRAW  ASC("-") -31 AT 210,170
  166. 1414  SCALE= 2
  167. 1415  RETURN 
  168. 1460  GOSUB 2200: GOSUB 1470: GOTO 1480
  169. 1470  DRAW  ASC("W") -31 AT 30,170: DRAW  ASC("O") -31 AT 42,170: DRAW  ASC("R") -31 AT 54,170: DRAW  ASC("D") -31 AT 66,170: DRAW  ASC("-") -31 AT 78,170: RETURN 
  170. 1480 J = 90:WG$ = ""
  171. 1485 NG = NG +1
  172. 1490  FOR I = 1 TO L
  173. 1500  GET L$: DRAW  ASC(L$) -31 AT J,170:WG$ = WG$ +L$:J = J +12: NEXT 
  174. 1510  GOSUB 2200: IF WG$ = WO$  THEN 1540
  175. 1520  GOSUB 1530: FOR I = 1 TO WT: NEXT : GOSUB 2200: POKE  -16368,0
  176. 1521 WG = WG +1:SW = SW +1
  177. 1522  ON SW GOSUB 170,220,240,260,280,300,320,350,370,400,430,480,520,570,640
  178. 1523  GOTO 1010
  179. 1530  DRAW  ASC("W") -31 AT 30,170: DRAW  ASC("R") -31 AT 42,170: DRAW  ASC("O") -31 AT 54,170: DRAW  ASC("N") -31 AT 66,170: DRAW  ASC("G") -31 AT 78,170: DRAW  ASC("W") -31 AT 102,170: DRAW  ASC("O") -31 AT 114,170
  180. 1531  DRAW  ASC("R") -31 AT 126,170: DRAW  ASC("D") -31 AT 138,170: RETURN 
  181. 1540  GOSUB 2200: HCOLOR= 3: SCALE= 2: FOR I = 1 TO L: DRAW  ASC( MID$ (WO$,I,1)) -31 AT I *20 +N,144: NEXT 
  182. 1550  DRAW  ASC("Y") -31 AT 30,170: DRAW  ASC("O") -31 AT 42,170: DRAW  ASC("U") -31 AT 54,170: DRAW  ASC("G") -31 AT 78,170: DRAW  ASC("U") -31 AT 90,170: DRAW  ASC("E") -31 AT 102,170: DRAW  ASC("S") -31 AT 114,170
  183. 1551  DRAW  ASC("S") -31 AT 126,170
  184. 1560  DRAW  ASC("E") -31 AT 138,170: DRAW  ASC("D") -31 AT 150,170: DRAW  ASC("I") -31 AT 174,170: DRAW  ASC("T") -31 AT 186,170
  185. 1580  FOR I = 1 TO 2000: NEXT 
  186. 1590  TEXT : HOME : VTAB 7: PRINT "YOU MADE ";NG;" GUESSES -- ";WG;" WERE WRONG!"
  187. 1600  PRINT : PRINT "DO YOU WISH TO PLAY AGAIN? Y";: HTAB 28: INPUT "";AN$: IF AN$ = "N"  OR AN$ = "NO"  THEN  HOME : VTAB 10: PRINT "THANK YOU FOR PLAYING APPLE HANGMAN!!!!": PRINT : PRINT D$"RUN MENU"
  188. 1605  HOME : VTAB 10: HTAB 10: PRINT "SAME SETUP? Y";: HTAB 22: INPUT "";Z$: IF Z$ = "N"  OR Z$ = "NO"  THEN 80
  189. 1607  IF  VAL(T$) = 1  THEN 770
  190. 1610  GOTO 880
  191. 1620  HOME : VTAB 10: PRINT "SAME SETUP? ";: GET AN$: IF AN$ = "N"  THEN 740
  192. 1630  IF T$ = "1"  THEN 770
  193. 1640  GOTO 880
  194. 1650  HCOLOR= 3: GOSUB 1660: FOR I = 1 TO WT: NEXT : GOSUB 2200: GOTO 1670
  195. 1660  DRAW  ASC("Y") -31 AT 30,170: DRAW  ASC("O") -31 AT 42,170: DRAW  ASC("U") -31 AT 54,170: DRAW  ASC("L") -31 AT 78,170: DRAW  ASC("O") -31 AT 90,170: DRAW  ASC("S") -31 AT 102,170: DRAW  ASC("E") -31 AT 114,170: RETURN 
  196. 1670  HCOLOR= 3: SCALE= 2: FOR I = 1 TO L: DRAW  ASC( MID$ (WO$,I,1)) -31 AT I *20 +N,144: NEXT 
  197. 1680  DRAW  ASC("W") -31 AT 30,170: DRAW  ASC("A") -31 AT 42,170: DRAW  ASC("S") -31 AT 54,170: DRAW  ASC("T") -31 AT 78,170: DRAW  ASC("H") -31 AT 90,170: DRAW  ASC("E") -31 AT 102,170
  198. 1690  DRAW  ASC("W") -31 AT 126,170: DRAW  ASC("O") -31 AT 138,170: DRAW  ASC("R") -31 AT 150,170: DRAW  ASC("D") -31 AT 162,170
  199. 1700  FOR I = 1 TO 5000: NEXT 
  200. 1710  GOTO 1590
  201. 2000  REM  NO.DUP.RANDS
  202. 2060 A(TU) =  INT(( RND( PEEK(78) + PEEK(79) *256) *NW) +1)
  203. 2070 N = A(TU): IF B(N) = 1 GOTO 2060
  204. 2080 B(N) = 1
  205. 2090 TU = TU +1: IF TU = NW  THEN  POP : HOME : VTAB 10: PRINT "THERE ARE NO MORE WORDS IN THE ": PRINT G$( VAL(G$));" VOCABULARY.": PRINT : HTAB 5: PRINT "THANK YOU FOR PLAYING APPLE HANGMAN!!!": PRINT : PRINT D$"RUN MENU"
  206. 2100  RETURN 
  207. 2200  HCOLOR= 0: FOR ZZ = 165 TO 178: HPLOT 0,ZZ TO 279,ZZ: NEXT : HCOLOR= 3: RETURN 
  208. 10000  REM  TITLE PAGE
  209. 10005  TEXT : HOME 
  210. 10007  VTAB 10
  211. 10010  PRINT  TAB( 13);"APPLE HANGMAN"
  212. 10015  PRINT 
  213. 10020  PRINT  TAB( 19);"BY"
  214. 10025  PRINT 
  215. 10030  PRINT  TAB( 10);"PAUL AND SUE MADISON"
  216. 10035  VTAB 20
  217. 10040  PRINT  TAB( 10);: FLASH : PRINT "HIT ANY KEY TO BEGIN": NORMAL 
  218. 10050 A$(0) =  CHR$(45):A$(1) =  CHR$(47):A$(2) =  CHR$(33):A$(3) =  CHR$(92)
  219. 10060 I = 0
  220. 10070 I = ((I +1)/4 - INT((I +1)/4)) *4
  221. 10080  VTAB 22: HTAB 15: PRINT A$(I);: HTAB 20: PRINT A$(I);: HTAB 25: PRINT A$(I);
  222. 10090  IF  PEEK( -16384) >127  THEN  RETURN 
  223. 10100  GOTO 10070